home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / CDTools / GoFetch! / Install_GoFetch!35 < prev    next >
Text File  |  2000-03-17  |  8KB  |  252 lines

  1. ; $VER: Go Fetch! Version 1.2 Install (1.2.3)
  2. ; (c) 1999 Ian Chapman
  3. ; Written For Zeus Developments
  4.  
  5. ;Procedure to copy newicons
  6.  
  7. ;NOTE This command is OS3.5 Only
  8. (effect "center" "radial" $0000FF $00FF00)
  9.  
  10. (procedure copynicons
  11.     (copyfiles
  12.         (source "icons/GoFetch!_NI256.info")
  13.         (newname "GoFetch!.info")
  14.         (dest @default-dest)
  15.     )
  16.  
  17.     (copyfiles
  18.         (source "icons/GoFetch!_NI256.info")
  19.         (newname "def_gofetch.info")
  20.         (dest "ENVARC:sys/")
  21.     )
  22.  
  23. )
  24.  
  25. (procedure copyicons
  26.     (copyfiles
  27.         (source "icons/GoFetch!_ST8.info")
  28.         (newname "GoFetch!.info")
  29.         (dest @default-dest)
  30.     )
  31.  
  32.     (copyfiles
  33.         (source "icons/GoFetch!_ST8.info")
  34.         (newname "def_gofetch.info")
  35.         (dest "ENVARC:sys/")
  36.     )
  37.  
  38. )
  39.  
  40. (procedure copy35icons
  41.     (copyfiles
  42.         (source "icons/GoFetch!_OS35.info")
  43.         (newname "GoFetch!.info")
  44.         (dest @default-dest)
  45.     )
  46.  
  47.     (copyfiles
  48.         (source "icons/GoFetch!_OS35.info")
  49.         (newname "def_gofetch.info")
  50.         (dest "ENVARC:sys/")
  51.     )
  52.  
  53. )
  54.  
  55. (procedure copyorigicons
  56.     (copyfiles
  57.         (source "icons/GoFetch!_orig.info")
  58.         (newname "GoFetch!.info")
  59.         (dest @default-dest)
  60.     )
  61.  
  62.     (copyfiles
  63.         (source "icons/GoFetch!_orig.info")
  64.         (newname "def_gofetch.info")
  65.         (dest "ENVARC:sys/")
  66.     )
  67.  
  68. )
  69.  
  70.  
  71. (procedure copysitelist
  72.     (copyfiles
  73.         (source "sitelist.gofetch")
  74.         (dest @default-dest)
  75.     )
  76. )
  77.  
  78. (procedure moveprofs
  79.     (copyfiles
  80.         (source "ENVARC:gofetch.profs")
  81.         (dest @default-dest)
  82.     )
  83.     (delete "ENVARC:gofetch.profs")
  84. )
  85.  
  86. ;(welcome "Welcome to Go Fetch!\n\n\n")
  87.  
  88. ;Introduction message
  89.  
  90. (message "Welcome to the Go Fetch! 1.2 Installation Utility\n (c) 1999 Ian Chapman. Written for Zeus Developments\n\nA full installation requires approximately 460K of Hard Drive Space")
  91. ; Ask for installation directory
  92.  
  93. (set @default-dest
  94.     (askdir
  95.         (prompt "Where would you like to install GoFetch! 1.2\n(NB A new directory called GoFetch! will be created, if it does not exist.)")
  96.         (help "The installer is asking where you would like GoFetch! and related files to be installed. A new directory called GoFetch! will be created for you, if it does not already exist.")
  97.         (default "Ram:")
  98.         )
  99. )
  100.  
  101. (set @default-dest (tackon @default-dest "GoFetch!"))
  102. (makedir @default-dest)
  103. (copyfiles
  104.     (source "GoFetch!")
  105.     (dest @default-dest)
  106. )
  107.  
  108. (copyfiles
  109.     (infos)
  110.     (source "GoFetch!.guide")
  111.     (dest @default-dest)
  112. )
  113.  
  114. (copyfiles
  115.     (infos)
  116.     (source "Readme.1st")
  117.     (dest @default-dest)
  118. )
  119.  
  120.  
  121. (makedir (tackon @default-dest "Arexx"))
  122. (makedir (tackon @default-dest "HTML_Docs"))
  123.  
  124.  
  125. (copyfiles
  126.     (prompt "Where should I copy the GoFetch! AREXX scripts to?\n(Please read the AREXX documentation.)")
  127.     (infos)
  128.     (all)
  129.     (source "Arexx")
  130.     (dest (tackon @default-dest "Arexx"))
  131.     (help "The installer is asking you where you would like to install the specified AREXX scripts. These AREXX scripts are designed to integrate Go Fetch! with your web browser and other internet software, as well as perform specific tasks. Read the documentation to find out how to setup your Web Browser to use them.\n\nIf you are not sure where to install them, choose proceed to install them in the default directory.")
  132.     (confirm)
  133. )
  134.  
  135. (copyfiles
  136.     (prompt "Where would you like me to copy the HTML docs?\n\n(The HTML docs have been discontinued. These docs apply to 0.95b only)")
  137.     (infos)
  138.     (all)
  139.     (source "HTML_Docs")
  140.     (dest (tackon @default-dest "HTML_Docs"))
  141.     (help "The installer is asking you where you would like to install the HTML documentation for Go Fetch!. The HTML documentation, supplied with this version of Go Fetch! applies to version 0.95b only. If you are unsure, choose proceed to install them in the default directory.")
  142.     (confirm)
  143. )
  144.  
  145. (copylib
  146.     (prompt "About to install reqtools.library")
  147.     (source "libs/reqtools.library")
  148.     (dest "libs:")
  149.     (help "Copying Library")
  150.     (confirm)
  151. )
  152.  
  153. ;Amiga OS 3.5 Only
  154. (showmedia 'ICONS' "icons/iconpreview.jpg" "upper_left" "none" 0)
  155.  
  156. (set iconchoice (askchoice
  157.                 (prompt "Please choose your preferred Go Fetch! icon.")
  158.                 (choices "256 Colour NewIcon" "256 Colour AmigaOS 3.5 Icon" "256 Colour Original NewIcon" "8 Colour Standard Icon" "Keep my currently installed icon.")
  159.                 (help "The installer is asking which icon set you would like installed.\n\n256 Colour NewIcons: Requires NewIcons, or AmigaOS 3.5 with NewIcons support enabled.\n\n256 Colour AmigaOS 3.5 Icons: Requires AmigaOS 3.5 is installed.\n\n8 Colour Standard Icons: Any Amiga OS.\n\nKeep Current: Does not change the Go Fetch! icon, if you already have Go Fetch! installed.")
  160.                 (default 0)
  161.                 )
  162. )
  163.  
  164. ;Amiga OS 3.5 Only
  165. (closemedia ICONS)
  166.  
  167. (if
  168.     (= 0 iconchoice)
  169.     (copynicons)
  170. )
  171.  
  172. (if
  173.     (= 1 iconchoice)
  174.     (copy35icons)
  175. )
  176.  
  177. (if
  178.     (= 2 iconchoice)
  179.     (copyorigicons)
  180. )
  181.  
  182.  
  183. (if
  184.     (= 3 iconchoice)
  185.     (copyicons)
  186. )
  187.  
  188.  
  189. (if
  190.     (= 0
  191.         (askchoice
  192.             (prompt "Should I install the default site-list for the site directory?\n(Note: If you already have a site-list it will be overwritten if you choose Yes.)")
  193.             (choices "Yes" "No")
  194.             (help "The site directory is a feature of Go Fetch! which allows you to store commonly used URLs, to avoid you from typing them again. If you already have a site-list installed, choosing yes will overwrite it.")
  195.             (default 0)
  196.          )
  197.      )
  198.      (copysitelist)
  199.  
  200. )
  201.  
  202.  
  203. (if
  204.     ( = 1
  205.         (exists "ENVARC:gofetch.profs")
  206.     )
  207.     (if
  208.         (= 0
  209.             (askchoice
  210.                 (prompt "From Version 0.95b Go Fetch! now stores its profiles in the program directory. Would you like me to move your profiles contained in ENVARC:?")
  211.                 (choices "Yes" "No")
  212.                 (help "Go Fetch! now stores its profiles in the program directory. The installer is asking if you would like your old profiles moved to the new directory, so you can continue to use them.")
  213.                 (default 0)
  214.             )
  215.          )
  216.          (moveprofs)
  217.     )
  218.     
  219. )
  220.  
  221.  
  222. (startup "GoFetch!"
  223.     (prompt "Would you like me to add an environment variable to your user-startup?\n(Note: Some AREXX scripts may require this to locate Go Fetch!)\n\n\nIf you prefer, this can be added manually by placing the following in your user-startup\nSetenv GOFETCH "@default-dest"\n\nIf you later move Go Fetch, don't forget to modify the Environment Variable")
  224.     (help "Some AREXX scripts may offer you the ability to automatically run Go Fetch!. To do this they will rely on the Go Fetch! environment variable to be set. If you are unsure whether you need this, it is safe to proceed")
  225.     (command "setenv GOFETCH "@default-dest)
  226.     (confirm)
  227. )
  228.  
  229. ;OS 3.5 Only Section
  230. (openwbobject @default-dest)
  231.  
  232. (set bootchoice (askchoice
  233.                 (prompt "A reboot may be required.\nDo you want to reboot now?")
  234.                 (choices "Yes" "No")
  235.                 (help "The installer is asking which icon set you would like installed.\n\n256 Colour NewIcons: Requires NewIcons, or AmigaOS 3.5 with NewIcons support enabled.\n\n256 Colour AmigaOS 3.5 Icons: Requires AmigaOS 3.5 is installed.\n\n8 Colour Standard Icons: Any Amiga OS.\n\nKeep Current: Does not change the Go Fetch! icon, if you already have Go Fetch! installed.")
  236.                 (default 0)
  237.                 )
  238. )
  239.  
  240. (if
  241.     (= 0 bootchoice)
  242.     (Message "Installation is complete!\n\nVisit:www.bleach.demon.co.uk/gofetch/\nE-Mail: ian.chapman@bleach.demon.co.uk\n\nPlease note, before using Go Fetch!, configure your preferences then save them.")
  243. )
  244.  
  245. (if (= 0 bootchoice)
  246.     (reboot)
  247. )
  248.  
  249.  
  250. (exit "Installation is complete!\n\nVisit: www.bleach.demon.co.uk/gofetch/\nE-Mail: ian.chapman@bleach.demon.co.uk\n\nPlease note, before using Go Fetch!, configure your preferences then save them." (quiet))
  251.  
  252.